home *** CD-ROM | disk | FTP | other *** search
/ Gekikoh Dennoh Club 7 / Gekikoh Dennoh Club Vol. 7 (Japan).7z / Gekikoh Dennoh Club Vol. 7 (Japan) (Track 01).bin / ikap / graphic1 / bg_4 / bg_49dm.bas < prev    next >
BASIC Source File  |  1999-06-15  |  2KB  |  80 lines
  1. /*==== -: "BG_4_9.SP" ﾃﾞﾓﾌﾟﾛｸﾞﾗﾑ :- ====
  2. int i,j,fp,cd=0,ky,pb_n=7,p_anm=0
  3. int sc0,sc1,sc2,sc3,sy
  4. dim char dat(8191)
  5. dim str mes(3)={"1 9999990 9999990 2 9999990",
  6.         ">>>>>>>>",
  7.         ":",
  8.         ":"}
  9. dim int r_pal(31)={128,384,640,896,1152,1408,1664,1920
  10.     ,1856,1792,1728,1664,1600,1536,1472,1408
  11.     ,1344,1280,1216,1152,1088,1024,960,896
  12.     ,832,768,704,640,576,512,448,384}
  13.  
  14. /*==== -: Screen Init. :- ====
  15. screen 0,3,1,1 : window(0,0,511,511)
  16. vpage(&B0000) : apage(0)
  17. v_priority("TGS")
  18. v_special(2)
  19. sp_init() : sp_disp(0)
  20. bg_set(0,1,1) : bg_scroll(0,  0,  0)
  21. bg_set(1,1,1) : bg_scroll(1,  0,256)
  22.  
  23. spfile_def("BG_49.SP",0)
  24. palfile_def("BG_49.PAL",2) : PAL_CH()
  25. /*palfile_def("BG_480.PAL",8)
  26.  
  27. /*---- -: Map File Read :- ----
  28. fp=fopen("BG_49DM.MAP","r")
  29. fseek(fp,&H1E,0)
  30. fread(dat,8192,fp)
  31. fclose(fp)
  32.  
  33. /*---- -: Map Make :- ----
  34. for i=0 to 63
  35. for j=0 to 63
  36.     cd=dat( (i shl 7)+(j shl 1) ) shl 8
  37.     cd=cd+dat( (i shl 7)+(j shl 1)+1 )
  38.     bg_put(1,j,i,cd)
  39. next
  40. next
  41.  
  42. /*---- -: ??? :- ----
  43. symbol(  1,  1,mes(0),1,1,1,   60,0)
  44. symbol(  0,  0,mes(0),1,1,1,65534,0)
  45. symbol(  1,  9,mes(1),1,1,1,   60,0)
  46. symbol(  0,  8,mes(1),1,1,1,65534,0)
  47. fill(  0,248,255,255,rgb(15,15,21)+1)
  48. symbol(  0,248,mes(2),1,1,1,65534,0)
  49. symbol(128,248,mes(3),1,1,1,65534,0)
  50.  
  51. /*---- -: ｽｸﾛｰﾙ ｶｲｼ :- ----
  52. vpage(&B0001) : sp_disp(1)
  53. while 1
  54.     sc0=sc0+1 and 1023
  55.     sc1=sc1+1 and 2047
  56. /*    p_anm=p_anm+1 and 31
  57.  
  58.     ky=asc(inkey$(0))
  59.     if ky = &H1B then break
  60.     if ky = &H20 then PAL_CH()
  61.  
  62.     v_disp()
  63.     bg_scroll(0,sc0 shr 1,  0)
  64. /*    bg_scroll(1,sc0,256)
  65.     bg_scroll(1,sc1 shr 2,256)
  66. /*    sp_color(8,r_pal(p_anm),1)
  67. endwhile
  68.  
  69. end
  70.  
  71. /*---- -: palet change :- ----
  72. func PAL_CH()
  73.     int i
  74.  
  75.     pb_n=(pb_n+1) and 7
  76.     for i=0 to 15
  77.         sp_color(i,sp_color(i,,2+pb_n),1)
  78.     next
  79. endfunc
  80.